home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / abillc1a / frmbillc.frm < prev   
Text File  |  1999-09-05  |  3KB  |  93 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "I thought this was funny.  No offense to anyone"
  5.    ClientHeight    =   3195
  6.    ClientLeft      =   45
  7.    ClientTop       =   330
  8.    ClientWidth     =   4680
  9.    LinkTopic       =   "Form1"
  10.    MaxButton       =   0   'False
  11.    MinButton       =   0   'False
  12.    ScaleHeight     =   3195
  13.    ScaleWidth      =   4680
  14.    StartUpPosition =   3  'Windows Default
  15.    Begin VB.CommandButton Command2 
  16.       Caption         =   "NO!"
  17.       Height          =   495
  18.       Left            =   2760
  19.       TabIndex        =   1
  20.       Top             =   2160
  21.       Width           =   855
  22.    End
  23.    Begin VB.Timer Timer1 
  24.       Interval        =   1
  25.       Left            =   1200
  26.       Top             =   2040
  27.    End
  28.    Begin VB.CommandButton Command1 
  29.       Caption         =   "YES"
  30.       Height          =   495
  31.       Left            =   600
  32.       TabIndex        =   0
  33.       Top             =   2160
  34.       UseMaskColor    =   -1  'True
  35.       Width           =   1095
  36.    End
  37.    Begin VB.Label Label2 
  38.       Caption         =   "Should i, Bill Clinton, resign and leave public life in shame?"
  39.       Height          =   375
  40.       Left            =   240
  41.       TabIndex        =   3
  42.       Top             =   1560
  43.       Width           =   2295
  44.    End
  45.    Begin VB.Label Label1 
  46.       Caption         =   $"frmbillclinton.frx":0000
  47.       Height          =   975
  48.       Left            =   240
  49.       TabIndex        =   2
  50.       Top             =   240
  51.       Width           =   4215
  52.    End
  53. End
  54. Attribute VB_Name = "Form1"
  55. Attribute VB_GlobalNameSpace = False
  56. Attribute VB_Creatable = False
  57. Attribute VB_PredeclaredId = True
  58. Attribute VB_Exposed = False
  59. Private Sub Command1_Mousemove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  60. If Y < 200 Then
  61. Command1.Top = Command1.Top + 50
  62. End If
  63. If X < 500 Then
  64. Command1.Left = Command1.Left + 50
  65. End If
  66. If Y > 200 Then
  67. Command1.Top = Command1.Top - 50
  68. End If
  69. If X > 500 Then
  70. Command1.Left = Command1.Left - 50
  71. End If
  72. End Sub
  73.  
  74. Private Sub Command2_Click()
  75. Unload Me
  76. MsgBox ("Thanks for your honest vote of support!")
  77. End Sub
  78.  
  79. Private Sub Timer1_Timer()
  80. If Command1.Top > 2500 Then
  81. Command1.Top = 10
  82. End If
  83. If Command1.Top < 10 Then
  84. Command1.Top = 2500
  85. End If
  86. If Command1.Left > 3700 Then
  87. Command1.Left = 10
  88. End If
  89. If Command1.Left < 10 Then
  90. Command1.Left = 3500
  91. End If
  92. End Sub
  93.